10 POKE56,160:CLR
20 PRINT"[147]FOR 10.5 SECONDS OF SOUND, PRESS RETURN"
30 GETA$:IFA$=CHR$(13)THENPOKE53,10:POKE54,128:SYS2304:SYS2340:GOTO20
40 GOTO30